(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 247549, 6211] NotebookOptionsPosition[ 237498, 5885] NotebookOutlinePosition[ 237876, 5901] CellTagsIndexPosition[ 237833, 5898] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["1. \:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\ \:0430\:0446\:0438\:044f \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\ \:044f \:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:044b\:0445 \:0441\ \:0438\:043b", FontSize->24, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5006570718227777`*^9, 3.500657133569309*^9}, { 3.5017386862756367`*^9, 3.501738694928131*^9}}], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->18]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], ",", "0", ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Psi]", "]"}], ",", "0", ",", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.5017466135751505`*^9, 3.501746615852754*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", "\[Psi]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Psi]", "]"}], "0", RowBox[{"Cos", "[", "\[Psi]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017447416872606`*^9, 3.5017466293779783`*^9, {3.501757582916128*^9, 3.5017576006971455`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], ",", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], ",", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448792466793`*^9}, { 3.50174661906636*^9, 3.5017466203767624`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.50174488112858*^9, 3.50174663056358*^9, {3.5017575829691315`*^9, 3.5017576007451477`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", "\[Gamma]", "]"}], ",", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017449986727157`*^9}, {3.5017466234343677`*^9, 3.50174662486957*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[Gamma]", "]"}], RowBox[{"Sin", "[", "\[Gamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{"Cos", "[", "\[Gamma]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017450006872272`*^9, 3.501746631858382*^9, {3.5017575829911327`*^9, 3.50175760077415*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mlg", "=", RowBox[{"m3", ".", "m2", ".", "m1"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017450522066045`*^9}, {3.501746521509713*^9, 3.5017465238029175`*^9}, {3.501746647084009*^9, 3.5017466776912627`*^9}, { 3.5017473914961505`*^9, 3.501747393371051*^9}, {3.5017491712107525`*^9, 3.501749171590774*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.501745053804489*^9, 3.5017465250665197`*^9, 3.501746633262385*^9, 3.5017472991139665`*^9, 3.5017486558492756`*^9, 3.5017491740619154`*^9, { 3.5017492988600535`*^9, 3.501749307608554*^9}, {3.5017575830171337`*^9, 3.5017576008011513`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mag", "=", RowBox[{"ReplaceAll", "[", RowBox[{"Mlg", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", "\[CapitalPsi]"}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", "\[CapitalTheta]"}], ",", RowBox[{"\[Gamma]", "\[Rule]", "\[CapitalGamma]"}]}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.501746980654349*^9}, { 3.5017470567462873`*^9, 3.501747110461187*^9}, {3.501747151088579*^9, 3.5017471555634212`*^9}, {3.501747211096614*^9, 3.5017472180943937`*^9}, { 3.50174738330851*^9, 3.501747399763796*^9}, {3.5017491939440527`*^9, 3.501749194550087*^9}, 3.501757822487831*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017470777264185`*^9, 3.5017471179933934`*^9, 3.50174724428021*^9, 3.5017473002554283`*^9, {3.501748653101118*^9, 3.5017486582354116`*^9}, 3.501749195912165*^9, {3.5017492997751055`*^9, 3.501749309246648*^9}, { 3.5017575830401354`*^9, 3.5017576008281527`*^9}, 3.501757830604295*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mkg", "=", RowBox[{"ReplaceAll", "[", RowBox[{"Mag", ",", RowBox[{"{", RowBox[{"\[CapitalGamma]", "\[Rule]", "0"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, { 3.5017470681673026`*^9, 3.5017470699952*^9}, {3.5017471730291615`*^9, 3.5017471891080294`*^9}, {3.5017472556592226`*^9, 3.501747285979056*^9}, { 3.5017473474345746`*^9, 3.5017474017647033`*^9}, {3.5017492139431963`*^9, 3.5017492144332247`*^9}, 3.501757828279162*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}], "0", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5017472648667192`*^9, 3.5017473017923093`*^9}, { 3.5017486468697615`*^9, 3.5017486604475384`*^9}, 3.501749215541288*^9, 3.5017493104377155`*^9, 3.5017497976675835`*^9, {3.5017575830681367`*^9, 3.5017576008591547`*^9}, 3.5017578322113867`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mak", "=", RowBox[{"ReplaceAll", "[", RowBox[{"m3", ",", RowBox[{"{", RowBox[{"\[Gamma]", "\[Rule]", "\[CapitalGamma]"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, { 3.5017470681673026`*^9, 3.5017470699952*^9}, {3.501747339479344*^9, 3.501747371096449*^9}, 3.501747404973076*^9, {3.5017474695311646`*^9, 3.501747478834467*^9}, {3.5017488333974304`*^9, 3.501748834073469*^9}, { 3.50174912203994*^9, 3.5017491390929155`*^9}, {3.5017492271069493`*^9, 3.5017492275119724`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017489911674547`*^9, 3.5017492478281345`*^9, 3.5017493149289722`*^9, { 3.501757583091138*^9, 3.5017576008851557`*^9}, 3.5017578337494745`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mla", "=", RowBox[{"ReplaceAll", "[", RowBox[{"Mkg", ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalPsi]", "\[Rule]", "\[Alpha]"}], ",", RowBox[{"\[CapitalTheta]", "\[Rule]", "\[Beta]"}]}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, { 3.5017470681673026`*^9, 3.5017470699952*^9}, {3.501747339479344*^9, 3.501747371096449*^9}, 3.501747404973076*^9, {3.5017474695311646`*^9, 3.501747478834467*^9}, {3.5017488333974304`*^9, 3.501748859146903*^9}, { 3.501748920479411*^9, 3.50174897744867*^9}, {3.501749242375823*^9, 3.501749270493431*^9}, 3.5017498133694816`*^9, {3.5017498680566096`*^9, 3.501749871849827*^9}, {3.501750548421524*^9, 3.501750552419753*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], RowBox[{"Sin", "[", "\[Beta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], RowBox[{"Cos", "[", "\[Beta]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{"Sin", "[", "\[Alpha]", "]"}], "0", RowBox[{"Cos", "[", "\[Alpha]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017474801255364`*^9, 3.5017486632997017`*^9, 3.50174898811228*^9, 3.5017492449509697`*^9, 3.501749317541122*^9, 3.501749706252355*^9, 3.5017498155496063`*^9, {3.501749846634384*^9, 3.501749872804881*^9}, 3.5017505529817853`*^9, {3.5017575831161394`*^9, 3.501757600911157*^9}, 3.501757790934026*^9, 3.501757835187557*^9}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041e\:0431\:044b\:0447\:043d\:043e", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", "\:0441\:0438\:043b", " ", "\:043f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:044e\:0442", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439"}], " "}], FontFamily->"Courier New", FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{ "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], ",", RowBox[{ RowBox[{ "\:0442\:0430\:043a", " ", "\:043a\:0430\:043a", " ", "\:0432", " ", "\:044d\:0442\:043e", " ", "\:0441\:043b\:0443\:0447\:0430\:0435", " ", "Vx"}], "=", "V"}], ",", "\[IndentingNewLine]", RowBox[{"Vy", "=", RowBox[{"Vz", "=", RowBox[{ "0", " ", "\:0438", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", "\:043f\:043e\:043b\:0443\:0447\:0430\:044e\:0442", " ", "\:0432", " ", "\:0434\:043e\:0441\:0442\:0430\:0442\:043e\:0447\:043d\:043e"}]}]}]}], FontFamily->"Courier New", FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{" ", RowBox[{"\:043f\:0440\:043e\:0441\:0442\:043e\:043c", " ", RowBox[{ "\:0432\:0438\:0434\:0435", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", "\:0412\:044b\:0440\:0430\:0437\:0438\:043c"}], " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:044b", " ", "\:0432\:0441\:0435\:0445", " ", "\:0441\:0438\:043b", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}]}], FontFamily->"Courier New", FontSize->18]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747764912238*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"1.", " ", "\:0421\:0438\:043b\:0430", " ", RowBox[{ "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", ".", "\:041f\:043e\:0441\:043a\:043e\:043b\:044c\:043a\:0443"}], " ", "\:044d\:0442\:0430", " ", "\:0441\:0438\:043b\:0430", " ", "\:043d\:0430\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0430", " ", "\:043f\:043e", " ", "\:043c\:0435\:0441\:0442\:043d\:043e\:0439", " ", "\:0432\:0435\:0440\:0442\:0438\:043a\:0430\:043b\:0438"}], ",", RowBox[{ "\:0435\:0451", " ", "\:043e\:0431\:044b\:0447\:043d\:043e", " ", "\:0437\:0430\:0434\:0430\:044e\:0442", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", RowBox[{ "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", ":"}]}]}], FontFamily->"Courier New", FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747785348274*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"VG", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747859713605*^9}}], Cell[BoxData[{ RowBox[{"2.", " ", "\:0421\:0438\:043b\:0430", " ", "\:0442\:044f\:0433\:0438", " ", "\:0434\:0432\:0438\:0433\:0430\:0442\:0435\:043b\:044f", " ", "\:043f\:0440\:0438\:043b\:043e\:0436\:0435\:043d\:0430", " ", "\:0432", " ", "\:0446\:0435\:043d\:0442\:0440\:0435", " ", "\:043c\:0430\:0441\:0441", " ", "\:0434\:0432\:0438\:0433\:0430\:0442\:0435\:043b\:044f", " ", "\:0438", " ", "\:043d\:0430\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0430", " ", "\:043f\:043e", " ", "\:043e\:0441\:0438", " ", "OX"}], "\n", RowBox[{"\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", RowBox[{ "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ".", "\:041e\:043d\:0430"}], " ", "\:0437\:0430\:0434\:0430\:0435\:0442\:0441\:044f", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747874518031*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VP", "=", RowBox[{"{", RowBox[{"P", ",", "0", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747874518031*^9}, {3.5017479555321054`*^9, 3.5017480081665974`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"P", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.5017480003197837`*^9, 3.5017480098046007`*^9}, { 3.5017575831531415`*^9, 3.5017576009441595`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{"3.", " ", "\:0420\:0430\:0432\:043d\:043e\:0434\:0435\:0439\:0441\:0442\:0432\:0443\ \:044e\:0449\:0430\:044f", " ", "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:043e\:0431\:044b\:0447\:043d\:043e", " ", "\:0437\:0430\:043f\:0438\:0441\:044b\:0432\:0430\:0435\:0442\:0441\:044f", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435"}], "\n", RowBox[{"\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ":"}]}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481854613085`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VR", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017482058193445`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]], "Output", CellChangeTimes->{ 3.5017482075821476`*^9, {3.5017575831761427`*^9, 3.501757600974161*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ "\:0433\:0434\:0435", " ", "X", " ", "\[Dash]", " ", "\:0441\:0438\:043b\:0430", " ", "\:043b\:043e\:0431\:043e\:0432\:043e\:0433\:043e", " ", "\:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\:043b\:0435\:043d\:0438\ \:044f"}], ";"}], "\n", RowBox[{ RowBox[{ "Y", " ", "\[Dash]", " ", "\:043f\:043e\:0434\:044a\:0435\:043c\:043d\:0430\:044f", " ", "\:0441\:0438\:043b\:0430"}], ";"}], "\n", RowBox[{"Z", " ", "\[Dash]", " ", "\:0431\:043e\:043a\:043e\:0432\:0430\:044f", " ", "\:0441\:0438\:043b\:0430"}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.501748230077387*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ "\:0417\:0430\:043f\:0438\:0448\:0435\:043c", " ", "\:044d\:0442\:0438", " ", "\:0441\:0438\:043b\:044b", " ", "\:0432", " ", "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:044f\:0445", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ":"}]}], FontFamily->"Courier New", FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483166806316`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"VGt", "=", RowBox[{"Mkg", ".", "VG"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, {3.5017483272842035`*^9, 3.5017483529871902`*^9}, {3.5017483872552366`*^9, 3.5017483906056175`*^9}, {3.5017486295647717`*^9, 3.501748633759012*^9}, { 3.5017487021059213`*^9, 3.5017487024429407`*^9}, {3.501749363418746*^9, 3.50174936627691*^9}, {3.5017494850167007`*^9, 3.5017494947272563`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}]}, { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017487056021214`*^9, 3.5017493673609715`*^9, {3.5017494901259933`*^9, 3.5017494956343083`*^9}, 3.5017499192065353`*^9, {3.5017575832001443`*^9, 3.5017576010011625`*^9}, 3.501757909396802*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"VPt", "=", RowBox[{ RowBox[{"Transpose", "[", "Mak", "]"}], ".", RowBox[{"Transpose", "[", "Mla", "]"}], ".", "VP"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, {3.5017483272842035`*^9, 3.5017483529871902`*^9}, {3.5017483872552366`*^9, 3.5017483906056175`*^9}, {3.5017486295647717`*^9, 3.501748633759012*^9}, { 3.5017487021059213`*^9, 3.5017487097663593`*^9}, {3.501748809977091*^9, 3.50174881083014*^9}, {3.501749058238291*^9, 3.501749059380356*^9}, { 3.5017493263376255`*^9, 3.501749335322139*^9}, {3.501749370624158*^9, 3.5017493731823044`*^9}, {3.501749444240369*^9, 3.5017494503787203`*^9}, { 3.501749583990362*^9, 3.5017495895306787`*^9}, 3.5017496368853874`*^9, { 3.50175010426712*^9, 3.5017501126976023`*^9}, {3.501750443164504*^9, 3.5017504520910144`*^9}, {3.5017577674146805`*^9, 3.501757768662752*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}, { RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}, { RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.501748635838131*^9, 3.501748667784958*^9, {3.5017493472258196`*^9, 3.501749373834342*^9}, 3.5017494531018753`*^9, 3.5017495914817905`*^9, 3.501749892455005*^9, 3.5017499565836735`*^9, 3.5017501134466453`*^9, 3.5017504528670588`*^9, {3.5017505635293884`*^9, 3.5017505834555283`*^9}, { 3.5017575836071672`*^9, 3.5017576010291643`*^9}, {3.501757762961426*^9, 3.501757769955826*^9}, 3.5017578389867744`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435", " ", "\:0441\:0438\:043b\:044b", " ", "\:0432\:044b\:0440\:0430\:0437\:044f\:0442\:0441\:044f", " ", RowBox[{"\:0442\:0430\:043a", ":"}]}]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750630102196*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"VRt", "=", RowBox[{ RowBox[{"Transpose", "[", "Mak", "]"}], ".", "VR"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.5017506679083586`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", "X"}]}, { RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}]}, { RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"Y", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017506711265426`*^9, {3.5017575836401696`*^9, 3.5017576010561657`*^9}, 3.5017577603422766`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "V", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Vt", "=", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.501751363936169*^9}, {3.501757687102087*^9, 3.501757696449622*^9}, {3.5017579499581213`*^9, 3.5017579542543674`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.501751354985657*^9, 3.501751780496995*^9, {3.501757583663171*^9, 3.501757601083167*^9}, 3.501757758068146*^9, 3.5017578846203847`*^9, { 3.5017579550914154`*^9, 3.5017579593236575`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"wb", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalTheta]", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:044c", " ", "\:0432\:0440\:0430\:0449\:0435\:043d\:0438\:044f", " ", "\:0431\:0430\:0437\:0438\:0441\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.5017513331404076`*^9}, {3.5017513673503647`*^9, 3.501751398901169*^9}, {3.5017514375153775`*^9, 3.5017514753945436`*^9}, { 3.501751522494238*^9, 3.5017515514418936`*^9}, {3.501751582808688*^9, 3.501751618247715*^9}, {3.501751650493559*^9, 3.5017516551678267`*^9}, { 3.501751702293522*^9, 3.501751702990562*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5017517048596687`*^9, {3.501757583687172*^9, 3.501757601111169*^9}, 3.501757756398051*^9, 3.5017578831413*^9, 3.501757961315771*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dvtdt", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"Vt", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"wb", ",", "Vt"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.5017513331404076`*^9}, {3.5017513673503647`*^9, 3.501751398901169*^9}, {3.5017514375153775`*^9, 3.5017514753945436`*^9}, { 3.501751522494238*^9, 3.501751545965581*^9}, 3.501751729865099*^9, { 3.5017517615169096`*^9, 3.501751771722493*^9}, {3.5017577112704697`*^9, 3.5017577246652355`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.5017513876535254`*^9, 3.501751399891226*^9}, 3.501751731164173*^9, {3.5017517632140064`*^9, 3.501751787437392*^9}, { 3.5017575837431755`*^9, 3.501757601168172*^9}, 3.5017577537669*^9, 3.501757882183245*^9, 3.5017579623328295`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{ "--", "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f"}]}], " ", "\:0441\:0438\:043b", " ", "\:0432", " ", "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:044f\:0445", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", RowBox[{ RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"m", "*", "dvtdt"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", RowBox[{"VGt", "+", "VPt", "+", "VRt"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, {3.5017518094406505`*^9, 3.5017518669869423`*^9}, {3.5017519003728514`*^9, 3.501751941534206*^9}, { 3.501752081016184*^9, 3.5017521087057676`*^9}, {3.501752160202713*^9, 3.5017521603837233`*^9}, {3.5017522151448555`*^9, 3.5017522270515366`*^9}, {3.501753586339283*^9, 3.5017536127347927`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"m", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "X"}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}]}]}, { RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"Y", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{ 3.5017519424882603`*^9, 3.501752109924837*^9, 3.5017521617248*^9, 3.501752228088596*^9, 3.5017536171950483`*^9, {3.5017575837971783`*^9, 3.5017576011961737`*^9}, 3.5017577515147715`*^9, {3.5017578481763*^9, 3.5017579136390443`*^9}, 3.5017579725864162`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435", " ", StyleBox["\:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435", FontWeight->"Bold"], " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435"}], FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.5017534922289004`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOU", "=", RowBox[{ RowBox[{"m", "*", RowBox[{"dvtdt", "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"VGt", "+", "VPt", "+", "VRt"}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.5017535474370584`*^9}, 3.501754071774049*^9, { 3.5017575684322996`*^9, 3.501757576448758*^9}, 3.5017579339442053`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.501753548763134*^9, 3.5017540752912493`*^9, {3.5017575838241796`*^9, 3.501757601223175*^9}, {3.501757661876644*^9, 3.5017576647808104`*^9}, 3.501757855885741*^9, {3.501757889731677*^9, 3.5017579347282505`*^9}, 3.501757976235625*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435", FontSize->16], StyleBox[" ", FontSize->16], StyleBox[ "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" ", FontSize->16], RowBox[{ StyleBox["\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", FontSize->16], StyleBox[":", FontSize->16], StyleBox["\[IndentingNewLine]", FontSize->16], RowBox[{ "\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b", " ", "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0433\:043e\ ", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:043e\:0442\:043b\:0438\:0447\:0430\:044e\:0442\:0441\:044f", " ", "\:043e\:0442", " ", "\:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:043e\:0432", " ", "\:043d\:0435\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\ \:0433\:043e"}]}]}], "\n", RowBox[{"\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:043d\:0430", " ", "\:043d\:0435\:043a\:043e\:0442\:043e\:0440\:0443\:044e", " ", "\:043c\:0430\:043b\:0443\:044e", " ", "\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0443"}], "\[LineSeparator]", RowBox[{"\:041f\:0440\:0438\:0434\:0430\:0434\:0438\:043c", " ", "\:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:0430\:043c", " ", "\:0438\:0445", " ", "\:043f\:0440\:0438\:0440\:0430\:0449\:0435\:043d\:0438\:044f"}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, {3.501757618039137*^9, 3.5017576273116674`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"\[CapitalPsi]0", "[", "t", "]"}], "+", RowBox[{"d\[CapitalPsi]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalTheta]1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"\[CapitalTheta]0", "[", "t", "]"}], "+", RowBox[{"d\[CapitalTheta]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Alpha]1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"\[Alpha]0", "[", "t", "]"}], "+", RowBox[{"d\[Alpha]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Beta]1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"\[Beta]0", "[", "t", "]"}], "+", RowBox[{"d\[Beta]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "+", RowBox[{"d\[CapitalGamma]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "=", RowBox[{"P0", "+", "dP"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wb1", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]1", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]1", "[", "t", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]1", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]1", "[", "t", "]"}], "]"}]}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalTheta]1", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vt1", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"V0", "[", "t", "]"}], "+", RowBox[{"dV", "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dvtdt1", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"Vt1", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"wb1", ",", "Vt1"}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, {3.5017585996852837`*^9, 3.5017586242626896`*^9}, {3.5017586557584915`*^9, 3.5017586653590403`*^9}, {3.5017587047182913`*^9, 3.501758871114809*^9}, { 3.501758908746961*^9, 3.5017589926947627`*^9}, {3.5017600987490253`*^9, 3.5017601041333337`*^9}, 3.50176041789528*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pr", "=", RowBox[{ RowBox[{"(", RowBox[{"VGt", "+", "VPt", "+", "VRt"}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, {3.5017585996852837`*^9, 3.5017586242626896`*^9}, {3.5017586557584915`*^9, 3.5017586653590403`*^9}, {3.5017587047182913`*^9, 3.501758871114809*^9}, { 3.501758908746961*^9, 3.5017589926947627`*^9}, {3.5017600987490253`*^9, 3.5017601982147145`*^9}, {3.5017602310955954`*^9, 3.5017602380849953`*^9}, 3.501760332199378*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prch", "=", RowBox[{"ReplaceAll", "[", RowBox[{"pr", ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalTheta]", "\[Rule]", RowBox[{"\[CapitalTheta]1", "[", "t", "]"}]}], ",", RowBox[{"\[CapitalPsi]", "\[Rule]", RowBox[{"\[CapitalPsi]1", "[", "t", "]"}]}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"\[Alpha]1", "[", "t", "]"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"\[Beta]1", "[", "t", "]"}]}], ",", RowBox[{"\[CapitalGamma]", "\[Rule]", RowBox[{"\[CapitalGamma]1", "[", "t", "]"}]}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:0440\:0430\:0432\:0430\:044f", " ", "\:0447\:0430\:0441\:0442\:044c", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, {3.5017585996852837`*^9, 3.5017586242626896`*^9}, {3.5017586557584915`*^9, 3.5017586653590403`*^9}, {3.5017587047182913`*^9, 3.501758871114809*^9}, { 3.501758908746961*^9, 3.5017589926947627`*^9}, {3.5017600987490253`*^9, 3.5017601982147145`*^9}, {3.5017602310955954`*^9, 3.501760260327267*^9}, { 3.501760296775352*^9, 3.501760364000197*^9}, {3.5017604268237906`*^9, 3.501760432751129*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.501760261860355*^9, {3.5017603393377867`*^9, 3.501760394286929*^9}, 3.5017604334711704`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVU", "=", RowBox[{ RowBox[{"m", "*", RowBox[{"dvtdt1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[Equal]", "prch"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, {3.5017590281087885`*^9, 3.5017590548463173`*^9}, {3.501760459670669*^9, 3.5017604605667205`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dV", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"V0", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"dV", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"V0", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.5017591139026957`*^9, 3.5017593446288924`*^9, 3.5017604615837784`*^9}] }, Open ]], Cell[BoxData[Cell[TextData[{ StyleBox[ "\:041f\:043e\:043b\:0443\:0447\:0430\:0435\:043c \:0443\:0440\:0430\:0432\ \:043d\:0435\:043d\:0438\:0435 \:0432 ", FontSize->16], StyleBox["\:0432\:0430\:0440\:0438\:0430\:0446\:0438\:044f\:0445:", FontSize->16, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.500661896897756*^9, 3.5006619830126815`*^9}}]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, {3.5017590281087885`*^9, 3.5017590481649356`*^9}, {3.501759325333789*^9, 3.501759330464082*^9}, { 3.5017604763676243`*^9, 3.5017604784147415`*^9}, {3.50176053224682*^9, 3.5017605633345985`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "\[Equal]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, {3.5017590281087885`*^9, 3.5017590481649356`*^9}, {3.501759325333789*^9, 3.501759330464082*^9}, { 3.5017604763676243`*^9, 3.5017604784147415`*^9}, {3.50176053224682*^9, 3.50176053975725*^9}, {3.5017608234714775`*^9, 3.501760836198205*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"V", "[", "t", "]"}]}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Z", "-", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Z"}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.501759332789215*^9, 3.5017604799858313`*^9, {3.501760852876159*^9, 3.501760873833358*^9}, {3.501767201967306*^9, 3.5017672067105775`*^9}}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ "\:0420\:0430\:0437\:043b\:043e\:0436\:0438\:043c", " ", "\:0432\:0441\:0435", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438", " ", "\:0432", " ", "\:043f\:043e\:0441\:043b\:0435\:0434\:043d\:0435\:043c", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0438", " ", "\:0432", " ", "\:0440\:044f\:0434", " ", "\:0422\:0435\:0439\:043b\:043e\:0440\:0430", " ", "\:043f\:043e", " ", "\:0441\:0442\:0435\:043f\:0435\:043d\:044f\:043c"}], FontFamily->"Courier New", FontSize->18], "\n", StyleBox[ RowBox[{ RowBox[{ "\:043f\:0440\:0438\:0440\:0430\:0449\:0435\:043d\:0438\:0439", " ", "H", " ", "\[CapitalDelta]V"}], ",", "...", ",", RowBox[{ "\[CapitalDelta]\[Delta]", " ", "\:0438", " ", "\:043e\:0441\:0442\:0430\:0432\:0438\:043c", " ", "\:0447\:043b\:0435\:043d\:044b", " ", "\:043f\:043e\:0440\:044f\:0434\:043a\:0430", " ", "\:043c\:0430\:043b\:043e\:0441\:0442\:0438", " ", "\:043d\:0435", " ", "\:0432\:044b\:0448\:0435", " ", "\:043f\:0435\:0440\:0432\:043e\:0439"}]}], FontFamily->"Courier New", FontSize->18]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.5017625457499857`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"sina", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sinb", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sing", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cosg", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cosb", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cost", "=", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.5017638683436337`*^9}, {3.5017639161503687`*^9, 3.501763979887014*^9}, { 3.5017645489025593`*^9, 3.5017646395037417`*^9}, {3.501765159919508*^9, 3.501765185809989*^9}, {3.501766176063628*^9, 3.501766190817472*^9}, { 3.501766323464059*^9, 3.501766334651699*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "sinb"}], ",", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "sing"}], ",", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "sina"}], ",", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "cosg"}], ",", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "cosb"}], ",", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}], "\[Rule]", "cost"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.501764817406917*^9}, { 3.501764950295518*^9, 3.501764972846808*^9}, {3.5017651957035546`*^9, 3.50176521013638*^9}, {3.5017654525442452`*^9, 3.501765468129136*^9}, { 3.501766197824873*^9, 3.5017662067773848`*^9}, {3.501766348633498*^9, 3.5017663576880164`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"V", "[", "t", "]"}]}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Z", "-", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Z"}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}], " ", RowBox[{"d\[Alpha]", "[", "t", "]"}]}], "+", RowBox[{"Sin", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}], "-", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}], " ", RowBox[{"d\[CapitalGamma]", "[", "t", "]"}]}], "+", RowBox[{"Sin", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}], " ", RowBox[{"d\[Beta]", "[", "t", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}], "-", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}], "]"}], "+", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.501764796978749*^9, 3.501764848726709*^9, 3.5017650183864126`*^9, 3.5017652478505373`*^9, 3.501765493423583*^9, 3.501766232839875*^9, 3.5017663778281684`*^9, 3.5017671891175714`*^9, 3.501767254645319*^9}] }, Open ]], Cell[BoxData[Cell[TextData[{ StyleBox[ "\:041f\:0440\:0435\:043d\:0435\:0431\:0440\:0435\:0436\:0435\:043c \:0432\ \:0442\:043e\:0440\:044b\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:043e\ \:043c \:043c\:0430\:043b\:043e\:0441\:0442\:0438, \:0442.\:0435. \ \:043f\:0440\:043e\:0438\:0437\:0432\:0435\:0434\:0435\:043d\:0438\:044f \ \:0432\:0430\:0440\:0438\:0430\:0446\:0438\:0439 \:0438 \:0438\:0445 \:0441\ \:0442\:0435\:043f\:0435\:043d\:0438 \:0432\:044b\:0448\:0435 1-\:0439 \:043f\ \:0440\:0438\:0440\:0430\:0432\:043d\:044f\:0435\:043c \:043a \:043d\:0443\ \:043b\:044e, \:0442\:0430\:043a\:0436\:0435 a0 \:0438 b0 \:043d\:0435\:0432\ \:0435\:043b\:0438\:043a\:0438 ", FontSize->16], "\[Rule]", StyleBox[" sin(a0)=a0, sin(B0)=B0, cos(a0)=cos(b0)=1", FontSize->16] }], "Text", CellChangeTimes->{{3.5006622816487627`*^9, 3.500662428154142*^9}, 3.5006626005280013`*^9, 3.5006627816793623`*^9, {3.500662946746804*^9, 3.5006629823538404`*^9}, {3.5006630258623295`*^9, 3.500663035357872*^9}}]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017647646238985`*^9}, 3.501764868695851*^9, {3.5017649260771327`*^9, 3.5017649278052316`*^9}, { 3.5017660000995636`*^9, 3.5017660104991584`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017647646238985`*^9}, 3.501764868695851*^9, 3.5017649260771327`*^9, {3.501765108504567*^9, 3.501765110791698*^9}, {3.5017652817184744`*^9, 3.5017652908309956`*^9}, { 3.501765407824687*^9, 3.501765417409236*^9}, {3.5017668340642633`*^9, 3.5017668349213123`*^9}, {3.5017668685922384`*^9, 3.5017669101756167`*^9}, {3.5017669885450993`*^9, 3.5017670349427533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.501767025171194*^9, 3.501767035605791*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}], "\[Rule]", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], ",", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}], "\[Rule]", RowBox[{"\[Beta]0", "[", "t", "]"}]}], ",", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]0", "[", "t", "]"}], "]"}], "\[Rule]", "1"}], ",", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}], "\[Rule]", "1"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}], " ", RowBox[{"d\[CapitalGamma]", "[", "t", "]"}]}], " ", "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Rule]", "0"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017647646238985`*^9}, 3.501764868695851*^9, 3.5017649260771327`*^9, {3.501765108504567*^9, 3.501765110791698*^9}, {3.5017652817184744`*^9, 3.5017652908309956`*^9}, { 3.501765407824687*^9, 3.501765417409236*^9}, {3.5017668340642633`*^9, 3.5017668349213123`*^9}, {3.5017668685922384`*^9, 3.5017669101756167`*^9}, {3.5017669885450993`*^9, 3.5017670229410667`*^9}, 3.501767061322262*^9, {3.5017671670013065`*^9, 3.5017671677443485`*^9}, { 3.501767282648921*^9, 3.501767283073945*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Z", "-", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}], "]"}], "+", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}], "-", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Z"}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], " ", RowBox[{"\[Beta]0", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5017648703319445`*^9, {3.501765093800726*^9, 3.5017651113447294`*^9}, 3.501765290850997*^9, 3.501765323056839*^9, 3.5017654454158373`*^9, 3.501765537616111*^9, 3.501766307800163*^9, 3.50176644464999*^9, 3.50176693068279*^9, 3.5017670062861137`*^9, 3.5017670793372927`*^9, { 3.501767168759407*^9, 3.5017671777509212`*^9}, 3.5017672869431667`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017646889655704`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017646713575635`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017646716525803`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, {3.5017638122534256`*^9, 3.501763814021527*^9}, {3.5017646679113665`*^9, 3.5017646716525803`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dV", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017626122887917`*^9, 3.5017627125425262`*^9}, {3.5017628723276653`*^9, 3.501762881527191*^9}, { 3.5017633475428457`*^9, 3.5017633492469435`*^9}, 3.5017638122534256`*^9}], Cell[BoxData[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"V", "[", "t", "]"}]}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dV", "[", "t", "]"}], "+", RowBox[{"V0", "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["\[CapitalTheta]0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.5017626178111076`*^9, {3.5017626569023438`*^9, 3.5017627131625614`*^9}, { 3.501762874005761*^9, 3.5017628830332775`*^9}, 3.501763350027988*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dV", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, {3.5017633682930326`*^9, 3.5017633748794093`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalTheta]", "[", "t", "]"}], "+", RowBox[{"\[CapitalTheta]0", "[", "t", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Z", "-", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{"Y", "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Z"}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"d\[Beta]", "[", "t", "]"}], "+", RowBox[{"\[Beta]0", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[Alpha]", "[", "t", "]"}], "+", RowBox[{"\[Alpha]0", "[", "t", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"d\[CapitalGamma]", "[", "t", "]"}], "+", RowBox[{"\[CapitalGamma]0", "[", "t", "]"}]}], "]"}]}]}]], "Output", CellChangeTimes->{3.5017633757564597`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx1", "[", "t", "]"}], ",", RowBox[{"wy1", "[", "t", "]"}], ",", RowBox[{"wz1", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx1", ",", "My1", ",", "Mz1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz1", "=", RowBox[{"Mrz1", "-", RowBox[{"P1", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wx1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "+", RowBox[{"dwx", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wy1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "+", RowBox[{"dwy", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wz1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "+", RowBox[{"dwz", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"IVU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx0", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy0", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{"Mrz0", "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}, 3.5017585996852837`*^9, { 3.5017586471489987`*^9, 3.501758653205345*^9}, 3.5017590281087885`*^9, { 3.5017593364274235`*^9, 3.5017593380595164`*^9}, {3.5017609170288286`*^9, 3.5017609292055244`*^9}, 3.501762555125522*^9, 3.5017633682930326`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TI . \ \\(\\({\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwx\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wx0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\), \ \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwy\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wy0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\), \ \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwz\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wz0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)}\\)\\)\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not exist.\\\\\\\"\\\", \ \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757584157199*^9, 3.501757601249177*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757584157199*^9, 3.5017576012531767`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\(\\(\\(\\(dwx[t]\\)\\\ ) + \\(\\(wx0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwy[t]\\)\\) + \ \\(\\(wy0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwz[t]\\)\\) + \ \\(\\(wz0[t]\\)\\)\\)\\)}\\)\\) \[Cross] \\(\\((TI . \ \\(\\({\\(\\(\\(\\(dwx[t]\\)\\) + \\(\\(wx0[t]\\)\\)\\)\\), \ \\(\\(\\(\\(dwy[t]\\)\\) + \\(\\(wy0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwz[t]\\)\\) \ + \\(\\(wz0[t]\\)\\)\\)\\)}\\)\\))\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757584157199*^9, 3.501757601254177*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{"Mrz0", "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{{3.501757584299207*^9, 3.5017576012571774`*^9}}] }, Open ]], Cell[BoxData[Cell[TextData[{ StyleBox[ "\:041f\:043e\:043b\:0443\:0447\:0430\:0435\:043c \:0432\:043e\:0437\:043c\ \:0443\:0449\:0435\:043d\:043d\:043e\:0435 \:0443\:0440\:0430\:0432\:043d\ \:0435\:043d\:0438\:0435 \:043c\:043e\:043c\:0435\:043d\:0442\:0430 \:0442\ \:0430\:043d\:0433\:0430\:0436\:0430, \:0442.\:0435. \:0443\:0440\:0430\:0432\ \:043d\:0435\:043d\:0438\:0435 \:0432 ", FontSize->16], StyleBox["\:0432\:0430\:0440\:0438\:0430\:0446\:0438\:044f\:0445:", FontSize->16, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.500661896897756*^9, 3.5006619830126815`*^9}}]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, 3.5017542426218204`*^9, { 3.5017584376070137`*^9, 3.5017584487486506`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, 3.5017542426218204`*^9, { 3.5017584376070137`*^9, 3.5017584487486506`*^9}, {3.5017585700445886`*^9, 3.5017585726947403`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Mrz0", "-", RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"G", " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], "+", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}], "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.501758576216942*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, 3.5017542426218204`*^9, { 3.5017584376070137`*^9, 3.5017584487486506`*^9}, 3.5017585700445886`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.500794832557768*^9, 3.5017390262270803`*^9, 3.5017411686146183`*^9, 3.5017447348450937`*^9, 3.5017448765137296`*^9, 3.501746954992304*^9, { 3.50175758434721*^9, 3.5017576012861786`*^9}, 3.501758444433404*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0413\:043b\:0430\:0432\:043d\:044b\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.500657219049198*^9, 3.5006572197712393`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5007948326045675`*^9, 3.5017390263190856`*^9, 3.5017411687076235`*^9, { 3.5017575843822117`*^9, 3.5017576013121805`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\ \:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:0438", " ", "\:0442\:044f\:0433\:0438", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", RowBox[{"(", RowBox[{ RowBox[{ "\:041c\:043e\:043c\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b", " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438"}], ",", " ", RowBox[{ "\:0446\:0435\:043d\:0442\:0440\:043e\:0431\:0435\:0436\:043d\:044b\ \:0445", " ", "\:0438", " ", "\:043a\:043e\:0440\:0438\:043e\:043b\:0438\:0441\:043e\:0432\:044b\ \:0445", " ", "\:0441\:0438\:043b", " ", "\:0438\:043d\:0435\:0440\:0446\:0438\:0438", " ", "\:0432\:043e\:043a\:0440\:0443\:0433", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410", " ", "\:0440\:0430\:0432\:0435\:043d", " ", "\:043d\:0443\:043b\:044e"}]}], ")"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572705591445`*^9, 3.5006572714001923`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Mx", ",", "My", ",", RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.500794832635768*^9, 3.5017390265881014`*^9, 3.501741168788628*^9, { 3.5017575844412155`*^9, 3.5017576013401823`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mz", "=", RowBox[{"Mrz", "-", RowBox[{"P", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.5006593549133625`*^9, 3.5006593560114255`*^9}}], Cell[BoxData[ RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]], "Output", CellChangeTimes->{ 3.500794832729368*^9, 3.501739026675106*^9, 3.5017411688806334`*^9, { 3.5017575844652166`*^9, 3.501757601365183*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lchudvd", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:043b\:043d\:0430\:044f", " ", "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", "\:043f\:043e", " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0433\:043b\:0430\:0432\:043d\:043e\:0433\:043e", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.500657284677952*^9, 3.500657285527001*^9}, { 3.501741146308342*^9, 3.501741147230395*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757584537221*^9, 3.501757601391185*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], ")"}]}], "+", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}]}]], "Output", CellChangeTimes->{ 3.5007948327605677`*^9, 3.5017390267731113`*^9, 3.5017411689696383`*^9, { 3.501757584578223*^9, 3.5017576013931847`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\ \:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\ \:0432\:043d\:043e\:0433\:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \ \:043c\:043e\:043c\:0435\:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\ \:0435\:0441\:0442\:0432 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \ \:0440\:0430\:0432\:043d\:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\ \:0443 \:043c\:043e\:043c\:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0448\ \:043d\:0438\:0445 \:0441\:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\ \:0443\:044e\:0449\:0438\:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.", FontSize->16]], "Text", CellChangeTimes->{{3.5006573007108693`*^9, 3.5006573015319157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrT", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5006573104704275`*^9, 3.500657332071663*^9}, { 3.5006573960903244`*^9, 3.5006574083980284`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(\\(\\({\\(\\(wx[t]\\)\\)\ , \\(\\(wy[t]\\)\\), \\(\\(wz[t]\\)\\)}\\)\\) \[Cross] \\(\\((TI . \\(\\({\\(\ \\(wx[t]\\)\\), \\(\\(wy[t]\\)\\), \\(\\(wz[t]\\)\\)}\\)\\))\\)\\)\\)\\) + \ \\(\\(TI . \\(\\({\\(\\(\\(\\(\\*SuperscriptBox[\\\"wx\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \\(\\(\\(\\(\\*SuperscriptBox[\ \\\"wy\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wz\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)}\\)\\)\\)\\)\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not exist.\\\\\\\"\\\", \ \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.5017575846172256`*^9, 3.501757601418186*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], ")"}]}], "+", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[Equal]", RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.501741169086645*^9, {3.501757584640227*^9, 3.5017576014211864`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.5017401043997483`*^9, 3.5017401056928225`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5017411692686553`*^9, {3.5017575847172313`*^9, 3.501757601447188*^9}}] }, Open ]], Cell[TextData[StyleBox["Clear[vx,vy,vz];\nV={vx[t],vy[t],vz[t]}; (*\:0432\ \:0435\:043a\:0442\:043e\:0440 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:0438 \:041b\:0410*)\nQ=m*D[V,t]", "Input", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.501742205303913*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", " ", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"m", " ", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"m", " ", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.5017575847642336`*^9, 3.5017576014751897`*^9}}], Cell[TextData[StyleBox["R={}", "Input", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.5017422141754208`*^9}, { 3.501742689762623*^9, 3.501742690726678*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.5017575848512387`*^9, 3.5017576015001907`*^9}}], Cell[TextData[StyleBox["\n\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\ \:044f \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\ \:0442\:0440\:0430 \:043c\:0430\:0441\:0441 \:041b\:0410 \:043f\:043e\:043b\ \:0443\:0447\:0438\:043c \:043e\:0441\:043d\:043e\:0432\:0430\:043d\:0438\ \:0438 \:0437\:0430\:043a\:043e\:043d\:0430 \:0438\:0437\:043c\:0435\:043d\ \:0435\:043d\:0438\:044f \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\ \:0432\:0430 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\ \:043d\:0442\:0440\:0430 \:043c\:0430\:0441\:0441: dQ/dt={Fi", FontFamily->"Times New Roman", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.5017422141754208`*^9}, { 3.501742689762623*^9, 3.501742723001524*^9}, {3.5017441956189966`*^9, 3.5017442166091976`*^9}}, EmphasizeSyntaxErrors->True], Cell[TextData[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 ", FontSize->16], StyleBox["\:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\ \:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\ \:0430 :", FontSize->16] }], "Text", CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.5017401332774*^9}, {3.5017442424146733`*^9, 3.501744245307839*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx0", ",", "My0", ",", "Mz0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz0", "=", RowBox[{"Mrz0", "-", RowBox[{"P0", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IOU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.5006590460196953`*^9, 3.500659046567726*^9}, 3.500659304612486*^9, {3.500659504332909*^9, 3.500659682659109*^9}, { 3.5006607685202165`*^9, 3.50066077558362*^9}, {3.5006610469231405`*^9, 3.5006610496182947`*^9}, {3.5006611272247334`*^9, 3.500661134635157*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TI . \ \\(\\({\\(\\(\\(\\(\\*SuperscriptBox[\\\"wx0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \\(\\(\\(\\(\\*SuperscriptBox[\ \\\"wy0\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wz0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)}\\)\\)\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not exist.\\\\\\\"\\\", \ \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.5017575850372496`*^9, 3.5017576015801954`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.5017575850372496`*^9, 3.501757601584196*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\(\\(wx0[t]\\)\\), \ \\(\\(wy0[t]\\)\\), \\(\\(wz0[t]\\)\\)}\\)\\) \[Cross] \\(\\((TI . \\(\\({\\(\ \\(wx0[t]\\)\\), \\(\\(wy0[t]\\)\\), \\(\\(wz0[t]\\)\\)}\\)\\))\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.5017575850372496`*^9, 3.501757601586196*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{"Mrz0", "-", RowBox[{"P0", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5007948328385677`*^9, 3.5017390270511274`*^9, 3.501741169488668*^9, { 3.5017575852672625`*^9, 3.501757601589196*^9}}] }, Open ]], Cell[TextData[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 ", FontSize->16], StyleBox["\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\ \:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\ \:0430 :", FontSize->16] }], "Text", CellChangeTimes->{{3.5006608473157234`*^9, 3.500660885978935*^9}, { 3.5006628222566833`*^9, 3.5006628307381687`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx1", "[", "t", "]"}], ",", RowBox[{"wy1", "[", "t", "]"}], ",", RowBox[{"wz1", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx1", ",", "My1", ",", "Mz1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz1", "=", RowBox[{"Mrz1", "-", RowBox[{"P1", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wx1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "+", RowBox[{"dwx", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wy1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "+", RowBox[{"dwy", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wz1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "+", RowBox[{"dwz", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mrz1", "=", RowBox[{"Mrz0", "+", "dMrz"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", RowBox[{"P0", "+", "dP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IVU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.500660014598095*^9, 3.500660015185128*^9}, { 3.500660293819065*^9, 3.500660351687375*^9}, {3.5006607853241777`*^9, 3.500660840114311*^9}, {3.5006610579647717`*^9, 3.5006610656822133`*^9}, { 3.500661140483492*^9, 3.500661144442718*^9}, {3.50066138680158*^9, 3.5006613942780075`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TI . \ \\(\\({\\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwx\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wx0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\), \ \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwy\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wy0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\), \ \\(\\(\\(\\(\\(\\(\\*SuperscriptBox[\\\"dwz\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\) + \ \\(\\(\\(\\(\\*SuperscriptBox[\\\"wz0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\)\\)\\)}\\)\\)\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not exist.\\\\\\\"\\\", \ \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585329266*^9, 3.5017576016151977`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585329266*^9, 3.501757601618198*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\(\\(\\(\\(dwx[t]\\)\\\ ) + \\(\\(wx0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwy[t]\\)\\) + \ \\(\\(wy0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwz[t]\\)\\) + \ \\(\\(wz0[t]\\)\\)\\)\\)}\\)\\) \[Cross] \\(\\((TI . \ \\(\\({\\(\\(\\(\\(dwx[t]\\)\\) + \\(\\(wx0[t]\\)\\)\\)\\), \ \\(\\(\\(\\(dwy[t]\\)\\) + \\(\\(wy0[t]\\)\\)\\)\\), \\(\\(\\(\\(dwz[t]\\)\\) \ + \\(\\(wz0[t]\\)\\)\\)\\)}\\)\\))\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585329266*^9, 3.5017576016201982`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{"Mrz0", "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.500794832869768*^9, 3.501739027164134*^9, 3.501741169595674*^9, { 3.5017575855072765`*^9, 3.501757601623198*^9}}] }, Open ]], Cell[TextData[{ StyleBox["\:041f\:043e\:043b\:0443\:0447\:0430\:0435\:043c \ \:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \:0443\ \:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\:043e\:043c\:0435\ \:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430, \:0442.\:0435. \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:0432 ", FontSize->16], StyleBox["\:0432\:0430\:0440\:0438\:0430\:0446\:0438\:044f\:0445:", FontSize->16, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.500661896897756*^9, 3.5006619830126815`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006615282366695`*^9, 3.5006616497146177`*^9}, { 3.5006617414878674`*^9, 3.500661766455295*^9}, {3.5006620917879033`*^9, 3.5006621357194157`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], "+", RowBox[{"wx0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwy", "[", "t", "]"}], "+", RowBox[{"wy0", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"dwz", "[", "t", "]"}], "+", RowBox[{"wz0", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5007948329633684`*^9, 3.5017390275061536`*^9, 3.5017411700547004`*^9, { 3.501757585538278*^9, 3.501757601774207*^9}}] }, Open ]], Cell[TextData[StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \ \:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:0435 \:041b\:0410 - \:043f\:0440\:044f\:043c\:043e\:043b\ \:0438\:043d\:0435\:0439\:043d\:044b\:0439 \:0433\:043e\:0440\:0438\:0437\ \:043e\:043d\:0442\:0430\:043b\:044c\:043d\:044b\:0439 \:043f\:043e\:043b\ \:0435\:0442: wx0[t]=0, wy0[t]=0 ,wz0[t]=0, wz0'[t]=0.\n\:041f\:0440\:0435\ \:043d\:0435\:0431\:0440\:0435\:0436\:0435\:043c \:0432\:0442\:043e\:0440\ \:044b\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:043e\:043c \:043c\:0430\ \:043b\:043e\:0441\:0442\:0438, \:0442.\:0435. \:043f\:0440\:043e\:0438\:0437\ \:0432\:0435\:0434\:0435\:043d\:0438\:044f \:0432\:0430\:0440\:0438\:0430\ \:0446\:0438\:0439 \:0438 \:0438\:0445 \:0441\:0442\:0435\:043f\:0435\:043d\ \:0438 \:0432\:044b\:0448\:0435 1-\:0439 \:043f\:0440\:0438\:0440\:0430\:0432\ \:043d\:044f\:0435\:043c \:043a \:043d\:0443\:043b\:044e.", FontSize->16]], "Text", CellChangeTimes->{{3.5006622816487627`*^9, 3.500662428154142*^9}, 3.5006626005280013`*^9, 3.5006627816793623`*^9, {3.500662946746804*^9, 3.5006629823538404`*^9}, {3.5006630258623295`*^9, 3.500663035357872*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"], "\[Rule]", "0"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "\[Rule]", "0"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500661726192992*^9, 3.5006617399907813`*^9}, { 3.5006617921987677`*^9, 3.500661862363781*^9}, {3.500662037084774*^9, 3.500662078478142*^9}, {3.5006621754346876`*^9, 3.5006622521680765`*^9}, { 3.5006628682593145`*^9, 3.5006628694613833`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.5017576018252096`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({0, 0, 0}\\)\\) \ \[Cross] \\(\\((TI . \\(\\({0, 0, 0}\\)\\))\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.5017576018272095`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cross", "::", "\<\"nonn1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The arguments are expected \ to be vectors of equal length, and the number of arguments is expected to be \ 1 less than their length.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Cross/nonn1\\\", ButtonNote -> \ \\\"Cross::nonn1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.50175760182921*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\(\\(dwx[t]\\)\\), \ \\(\\(dwy[t]\\)\\), \\(\\(dwz[t]\\)\\)}\\)\\) \[Cross] \\(\\((TI . \\(\\({\\(\ \\(dwx[t]\\)\\), \\(\\(dwy[t]\\)\\), \\(\\(dwz[t]\\)\\)}\\)\\))\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.50175760183221*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Part", "::", "\<\"partw\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Part \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(3\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" of \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(TI . \ \\(\\({\\(\\(\\(\\(\\*SuperscriptBox[\\\"wx0\\\", \\\"\[Prime]\\\", \ Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \\(\\(\\(\\(\\*SuperscriptBox[\ \\\"wy0\\\", \\\"\[Prime]\\\", Rule[MultilineFunction, None]]\\)\\)[t]\\)\\), \ 0}\\)\\)\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not \ exist.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.50175760183421*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\ \", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Part :: \\\"partw\\\"\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \ during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.501757585606282*^9, 3.5017576018362103`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0"}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.500794833010168*^9, 3.501739027634161*^9, 3.5017411701897078`*^9, { 3.501757585893298*^9, 3.5017576018392105`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:0422.\:043a. \:0441\:0438\:043b\:044b \:0438 \:043c\ \:043e\:043c\:0435\:043d\:0442\:044b \:0437\:0430\:0432\:0438\:0441\:044f\ \:0442 \:043e\:0442 \:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:043e\ \:0432 \:043f\:043e\:043b\:0435\:0442\:0430 \:0438 \:0441\:043e\:043e\:0442\ \:0432\:0435\:0442\:0441\:0442\:0432\:0435\:043d\:043d\:043e, \:043d\:0430 \ \:0438\:0445 \:0432\:0435\:043b\:0438\:0447\:0438\:043d\:044b \:0432\:043b\ \:0438\:044f\:044e\:0442 \:0447\:0430\:0441\:0442\:043d\:044b\:0435 \:043f\ \:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0435 \:043e\:0442 \ \:044d\:0442\:0438\:0445 \:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\ \:043e\:0432, \:0442\:043e \:043c\:043e\:0436\:043d\:043e \:0437\:0430\:043f\ \:0438\:0441\:0430\:0442\:044c:", FontSize->16]], "Text", CellChangeTimes->{{3.5007912084721923`*^9, 3.500791225398222*^9}, { 3.500791345761634*^9, 3.500791347477637*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dMrz", "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "wz", "]"}], ",", "wz"}], "]"}], "*", "wz"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "alpha", "]"}], ",", "alpha"}], "]"}], "*", "dalpha"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "Mah", "]"}], ",", "Mah"}], "]"}], "*", RowBox[{"dv", "/", "a"}]}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}]}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "drv", "]"}], ",", "drv"}], "]"}], "*", "drv"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "dzak", "]"}], ",", "dzak"}], "]"}], "*", "dzak"}]}]}]], "Input", CellChangeTimes->{{3.5006630798254156`*^9, 3.5006631319883995`*^9}, { 3.5006631692305293`*^9, 3.500663200945343*^9}, {3.500663269020237*^9, 3.5006633777094536`*^9}, 3.500663954178426*^9, {3.5006639889854164`*^9, 3.500663994171713*^9}, {3.5006642279610853`*^9, 3.5006642952269325`*^9}, { 3.5006643387294207`*^9, 3.50066448330569*^9}, {3.500664667673235*^9, 3.500664672686522*^9}, {3.500664717602091*^9, 3.500664782324793*^9}, { 3.5006648457294197`*^9, 3.5006648892579093`*^9}, 3.50066493228537*^9, { 3.500665019546361*^9, 3.5006650224015245`*^9}, {3.5006664042505617`*^9, 3.500666456191533*^9}, 3.50078998897005*^9, 3.5007903961931653`*^9, 3.5007905027101526`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.5007948330569687`*^9, 3.501739027736167*^9, 3.501741170555729*^9, { 3.501757585933301*^9, 3.501757601865212*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dP", "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "dsg", "]"}], ",", "dsg"}], "]"}], "*", "dsg"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "dv", "]"}], ",", "dv"}], "]"}], "*", "dv"}]}]}]], "Input", CellChangeTimes->{{3.5006650616797714`*^9, 3.5006651210421667`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]], "Output", CellChangeTimes->{ 3.5007948331037683`*^9, 3.5017390277971706`*^9, 3.5017411706857367`*^9, { 3.501757585976303*^9, 3.5017576018912134`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:043e\ \:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:0438\:043c\ \:0435\:0435\:0442 \:0432\:0438\:0434:", FontSize->16]], "Text", CellChangeTimes->{{3.5007914865050807`*^9, 3.5007915168007345`*^9}}], Cell[CellGroupData[{ Cell[BoxData["UrVD"], "Input", CellChangeTimes->{{3.500665511882521*^9, 3.5006655192449427`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0"}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5007948331505685`*^9, 3.501739027859174*^9, 3.5017411708207445`*^9, { 3.5017575860623083`*^9, 3.501757601917215*^9}}] }, Open ]], Cell[TextData[StyleBox["\:0412\:044b\:0447\:0442\:0435\:043c \:0438\:0437 \ \:043b\:0435\:0432\:043e\:0439 \:0447\:0430\:0441\:0442\:0438 \:0443\:0440\ \:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043f\:0440\:0430\:0432\:0443\ \:044e \:0438 \:0440\:0430\:0437\:0434\:0435\:043b\:0438\:043c \:043f\:043e\ \:043b\:0443\:0447\:0438\:0432\:0448\:0435\:0435\:0441\:044f \:0443\:0440\ \:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043d\:0430 \:043a\:043e\:044d\ \:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442 \:043f\:0440\:0438 \:043f\ \:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:043e\:0439 \:0443\:0433\ \:043b\:043e\:0432\:043e\:0439 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:0438 \:0442\:0430\:043d\:0433\:0430\:0436\:0430:", FontSize->16]], "Text", CellChangeTimes->{{3.5007915243043475`*^9, 3.500791524756748*^9}, { 3.5007916107908993`*^9, 3.5007916122573023`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"UrVD", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "Izz"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.500665257111949*^9, 3.500665312395111*^9}, { 3.5006653467050734`*^9, 3.500665436764225*^9}, {3.5006656499604187`*^9, 3.500665662620143*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "Izz"], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0"}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "-", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "-", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "-", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "-", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "+", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.5007948331973686`*^9, 3.501739028000182*^9, 3.501741170973753*^9, { 3.5017575861273117`*^9, 3.5017576019442167`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"M", ",", "P"}], "]"}], "\[IndentingNewLine]", RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}], "\[Rule]", SubsuperscriptBox["M", "z", "\[Alpha]"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}], "->", SubsuperscriptBox["M", "z", "M"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}], "\[Rule]", SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}], "\[Rule]", SuperscriptBox["P", "v"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}], "->", SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]]}]}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5007885092986517`*^9, 3.5007885468323174`*^9}, { 3.500788663957323*^9, 3.5007886981681833`*^9}, {3.5007887818623304`*^9, 3.500788786885539*^9}, {3.5007888530296555`*^9, 3.50078895233943*^9}, { 3.5007890871392665`*^9, 3.500789246965947*^9}, {3.500789296293234*^9, 3.500789323172081*^9}, {3.500789395072607*^9, 3.500789513306415*^9}, { 3.500789551932083*^9, 3.500789777059278*^9}, {3.5007898121437397`*^9, 3.5007898179313498`*^9}, {3.5007921871851115`*^9, 3.500792188464314*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "Izz"], RowBox[{"(", RowBox[{ RowBox[{"dv", " ", SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "+", RowBox[{"dsg", " ", SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}], "\[Cross]", RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{"dwx", "[", "t", "]"}], ",", RowBox[{"dwy", "[", "t", "]"}], ",", RowBox[{"dwz", "[", "t", "]"}]}], "}"}]}], ")"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0"}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"TI", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["dwx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wx0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["dwy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wy0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], ")"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", FractionBox[ RowBox[{"dv", " ", SubsuperscriptBox["M", "z", "M"]}], "a"], "-", RowBox[{"dalpha", " ", SubsuperscriptBox["M", "z", "\[Alpha]"]}], "-", RowBox[{"drv", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]]}], "-", RowBox[{"dzak", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]]}], "-", RowBox[{"wz", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]]}], "-", RowBox[{ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], " ", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.500794833306569*^9, 3.5017390280751863`*^9, 3.5017411711267614`*^9, { 3.501757586167314*^9, 3.501757601971218*^9}}] }, Open ]], Cell[TextData[StyleBox["\:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\:043e\ \:0432\:0430\:043d\:043d\:043e\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\ \:043d\:0438\:0435 \:043c\:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\ \:043d\:0433\:0430\:0436\:0430:", FontFamily->"Times New Roman", FontSize->16, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5007925577093644`*^9, 3.5007926208786755`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007911059488125`*^9, 3.5007911068068137`*^9}, { 3.5007917464175377`*^9, 3.5007919239002495`*^9}, {3.5007920122620044`*^9, 3.5007920129640055`*^9}, 3.5007943786125703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}], "-", FractionBox[ RowBox[{"\[Rho]V", " ", OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0412"]}], RowBox[{"2", " ", "Izz"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0417"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"], " ", SubscriptBox["\[Omega]", "z"]}], RowBox[{"2", " ", "Izz"}]], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.500794833337769*^9, 3.5017390281531906`*^9, 3.5017411712797704`*^9, { 3.501757586219317*^9, 3.5017576020002193`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\ \:043d\:0442\:044b \:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0433\:043e \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f:", FontFamily->"Times New Roman", FontSize->16, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5007926377423053`*^9, 3.5007926812987823`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "wz"}], "]"}]}]], "Input", CellChangeTimes->{{3.5006656708966165`*^9, 3.500665695915047*^9}, { 3.5006658219692574`*^9, 3.50066584579762*^9}, {3.5007884987530327`*^9, 3.500788503089841*^9}, {3.5007900368465343`*^9, 3.500790046846152*^9}, 3.5007904111691914`*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], "Izz"]}]], "Output", CellChangeTimes->{ 3.500794833368969*^9, 3.501739028215194*^9, 3.5017411715327845`*^9, { 3.5017575862643194`*^9, 3.501757602030221*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dalpha"}], "]"}]}]], "Input", CellChangeTimes->{{3.5006656396728306`*^9, 3.5006656403038664`*^9}, { 3.5006658573732824`*^9, 3.500665885425887*^9}, 3.500665922869028*^9, 3.5006662896430063`*^9, {3.500666354248702*^9, 3.500666359297991*^9}, { 3.5007904368780365`*^9, 3.500790440856044*^9}, 3.500790492492134*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", "\[Alpha]"], "Izz"]}]], "Output", CellChangeTimes->{ 3.5007948334313693`*^9, 3.5017390282751975`*^9, 3.501741171657792*^9, { 3.5017575865303345`*^9, 3.5017576020622234`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\:04413", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "drv"}], "]"}]}]], "Input", CellChangeTimes->{{3.500790525657793*^9, 3.5007905579822493`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], "Izz"]}]], "Output", CellChangeTimes->{ 3.500794833462569*^9, 3.501739028334201*^9, 3.5017411717878*^9, { 3.5017575865933385`*^9, 3.501757602088225*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c5", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007905667026653`*^9, 3.500790589946706*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], "Izz"]}]], "Output", CellChangeTimes->{ 3.500794833493769*^9, 3.501739028386204*^9, 3.5017411719078064`*^9, { 3.5017575866493416`*^9, 3.5017576021152263`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dzak"}], "]"}]}]], "Input", CellChangeTimes->{{3.5007905959839163`*^9, 3.5007905963583174`*^9}, { 3.5007906365595875`*^9, 3.500790658696027*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], "Izz"]}]], "Output", CellChangeTimes->{ 3.500794833524969*^9, 3.501739028435207*^9, 3.5017411720158124`*^9, { 3.5017575867193456`*^9, 3.5017576021432276`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e3", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dv"}], "]"}]}]], "Input", CellChangeTimes->{{3.5007906630640345`*^9, 3.5007907017989025`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ SubsuperscriptBox["M", "z", "M"], "a"]}], "Izz"]], "Output", CellChangeTimes->{ 3.5007948335561695`*^9, 3.501739028479209*^9, 3.5017411721208186`*^9, { 3.501757586769348*^9, 3.5017576021692295`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r3", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dsg"}], "]"}]}]], "Input", CellChangeTimes->{{3.500790712890522*^9, 3.5007907237013407`*^9}, { 3.5007907616874075`*^9, 3.50079076288861*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "Izz"]], "Output", CellChangeTimes->{ 3.5007948335873694`*^9, 3.5017390285232115`*^9, 3.5017411722208242`*^9, { 3.5017575867993503`*^9, 3.501757602194231*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U2", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007908094546914`*^9, 3.500791061629134*^9}, { 3.500791095075593*^9, 3.5007910977275977`*^9}, 3.500791945977488*^9, { 3.5007919925903697`*^9, 3.5007920071919956`*^9}, {3.500794372029359*^9, 3.5007943757265654`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SubsuperscriptBox["M", "z", "\[Alpha]"]}], "Izz"]}], "-", FractionBox[ RowBox[{ OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]]}], "Izz"], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ SubsuperscriptBox["M", "z", "M"], "a"]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["\[Delta]", "\:0412"]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["\[Delta]", "\:0417"]}], "Izz"], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], " ", SubscriptBox["\[Omega]", "z"]}], "Izz"], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.5007948336185694`*^9, 3.5017390285692143`*^9, 3.5017411723268304`*^9, { 3.5017575868573537`*^9, 3.5017576022212324`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:0417\:0430\:043f\:0438\:0448\:0435\:043c \:043a\ \:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b \:0432 \ \:043f\:0440\:0438\:043d\:044f\:0442\:043e\:0439 \:0444\:043e\:0440\:043c\ \:0435 :", FontSize->16]], "Text", CellChangeTimes->{{3.5007942541847515`*^9, 3.5007942803943977`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c1", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], FractionBox["\[Rho]V", "2"], SubsuperscriptBox["Sb", "A", "2"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007929710224905`*^9, 3.5007929895709233`*^9}, { 3.5007930255445867`*^9, 3.500793062844252*^9}, {3.5007931416867905`*^9, 3.500793177738454*^9}, {3.500793211980514*^9, 3.500793257048993*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{ 3.50079483364977*^9, 3.5017390286242175`*^9, 3.501741172510841*^9, { 3.501757586898356*^9, 3.5017576022502337`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c2", ",", RowBox[{ SubsuperscriptBox["M", "z", "\[Alpha]"], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", "\[Alpha]"], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.50079326670541*^9, 3.500793311040688*^9}, { 3.500793341148741*^9, 3.5007933476539526`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{ 3.5007948336809697`*^9, 3.5017390286712203`*^9, 3.501741172612847*^9, { 3.501757586933358*^9, 3.501757602275235*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\:04413", "=", RowBox[{"ReplaceAll", "[", RowBox[{"\:04413", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500793406341255*^9, 3.5007934069028563`*^9}, { 3.500793444047722*^9, 3.500793504466628*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{ 3.5007948337121696`*^9, 3.501739028720223*^9, 3.5017411727108526`*^9, { 3.5017575869693604`*^9, 3.501757602301237*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c5", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c5", ",", RowBox[{ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], FractionBox["\[Rho]V", "2"], SubsuperscriptBox["Sb", "A", "2"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007935240446625`*^9, 3.5007935692223415`*^9}, 3.500793607099208*^9, {3.5007936375816617`*^9, 3.500793651387686*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{ 3.5007948337433696`*^9, 3.501739028769226*^9, 3.501741172812858*^9, { 3.5017575869993615`*^9, 3.5017576023282385`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c12", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500793802513958*^9, 3.5007938305940075`*^9}, { 3.500793873821683*^9, 3.5007938985009265`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{ 3.5007948337745695`*^9, 3.5017390288202286`*^9, 3.501741172917864*^9, { 3.5017575870363636`*^9, 3.50175760235424*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e3", "=", RowBox[{"ReplaceAll", "[", RowBox[{"e3", ",", RowBox[{ SubsuperscriptBox["M", "z", "M"], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", "M"], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500794103098486*^9, 3.5007941418801537`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], "Izz"]], "Output", CellChangeTimes->{ 3.50079483380577*^9, 3.5017390288722315`*^9, 3.5017411730498714`*^9, { 3.5017575870833664`*^9, 3.5017576023812413`*^9}}] }, Open ]], Cell[TextData[StyleBox["\:041e\:043a\:043e\:043d\:0447\:0430\:0442\:0435\:043b\ \:044c\:043d\:043e\:0435 \:0432\:044b\:0440\:0430\:0436\:0435\:043d\:0438\ \:0435 \:0438\:043c\:0435\:0435\:0442 \:0432\:0438\:0434 :", FontSize->18]], "Text", CellChangeTimes->{{3.5007943282240815`*^9, 3.50079435001772*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U3", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007943037476387`*^9, 3.500794322296071*^9}, 3.5007943816545753`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}], "-", FractionBox[ RowBox[{"\[Rho]V", " ", OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0412"]}], RowBox[{"2", " ", "Izz"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0417"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"], " ", SubscriptBox["\[Omega]", "z"]}], RowBox[{"2", " ", "Izz"}]], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.50079483383697*^9, 3.501739028929235*^9, 3.5017411731668787`*^9, { 3.5017575871143684`*^9, 3.5017576024112434`*^9}}] }, Open ]] }, WindowSize->{789, 884}, WindowMargins->{{1, Automatic}, {Automatic, 0}}, Magnification->0.8999999761581421, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 407, 7, 37, "Text"], Cell[955, 29, 312, 4, 31, "Text"], Cell[CellGroupData[{ Cell[1292, 37, 844, 21, 27, "Input"], Cell[2139, 60, 919, 26, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3095, 91, 969, 21, 27, "Input"], Cell[4067, 114, 943, 26, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5047, 145, 1005, 23, 27, "Input"], Cell[6055, 170, 924, 26, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7016, 201, 1104, 20, 27, "Input"], Cell[8123, 223, 2705, 71, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10865, 299, 1621, 32, 46, "Input"], Cell[12489, 333, 2908, 71, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15434, 409, 1474, 29, 46, "Input"], Cell[16911, 440, 1621, 40, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18569, 485, 1520, 30, 46, "Input"], Cell[20092, 517, 1003, 26, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21132, 548, 1708, 32, 46, "Input"], Cell[22843, 582, 1629, 42, 62, "Output"] }, Open ]], Cell[24487, 627, 2642, 56, 118, "Input", Evaluatable->False], Cell[27132, 685, 1727, 32, 50, "Input", Evaluatable->False], Cell[28862, 719, 920, 17, 27, "Input"], Cell[29785, 738, 1829, 30, 46, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[31639, 772, 929, 15, 27, "Input"], Cell[32571, 789, 206, 4, 27, "Output"] }, Open ]], Cell[32792, 796, 1378, 22, 46, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[34195, 822, 849, 15, 27, "Input"], Cell[35047, 839, 197, 5, 27, "Output"] }, Open ]], Cell[35259, 847, 1384, 28, 64, "Input", Evaluatable->False], Cell[36646, 877, 1309, 23, 29, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[37980, 904, 1200, 19, 27, "Input"], Cell[39183, 925, 1069, 30, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40289, 960, 1663, 26, 27, "Input"], Cell[41955, 988, 2040, 51, 62, "Output"] }, Open ]], Cell[44010, 1042, 1153, 18, 27, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[45188, 1064, 1007, 17, 27, "Input"], Cell[46198, 1083, 1164, 34, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47399, 1122, 1418, 25, 46, "Input"], Cell[48820, 1149, 329, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49186, 1161, 2094, 42, 27, "Input"], Cell[51283, 1205, 766, 20, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52086, 1230, 1671, 30, 27, "Input"], Cell[53760, 1262, 872, 22, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54669, 1289, 1950, 37, 46, "Input"], Cell[56622, 1328, 3912, 103, 50, "Output"] }, Open ]], Cell[60549, 1434, 1252, 21, 29, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[61826, 1459, 1338, 24, 27, "Input"], Cell[63167, 1485, 1114, 29, 27, "Output"] }, Open ]], Cell[64296, 1517, 2692, 54, 82, "Input", Evaluatable->False], Cell[66991, 1573, 3721, 93, 190, "Input"], Cell[70715, 1668, 1627, 27, 27, "Input"], Cell[CellGroupData[{ Cell[72367, 1699, 2352, 43, 46, "Input"], Cell[74722, 1744, 1597, 45, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76356, 1794, 1447, 23, 27, "Input"], Cell[77806, 1819, 2434, 68, 64, "Output"] }, Open ]], Cell[80255, 1890, 1782, 30, 31, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[82062, 1924, 1878, 34, 27, "Input"], Cell[83943, 1960, 2697, 78, 64, "Output"] }, Open ]], Cell[86655, 2041, 2516, 47, 78, "Input", Evaluatable->False], Cell[89174, 2090, 4402, 103, 118, "Input"], Cell[CellGroupData[{ Cell[93601, 2197, 3349, 68, 82, "Input"], Cell[96953, 2267, 3562, 102, 82, "Output"] }, Open ]], Cell[100530, 2372, 2776, 44, 50, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[103331, 2420, 2422, 41, 27, "Input"], Cell[105756, 2463, 492, 14, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106285, 2482, 3642, 72, 64, "Input"], Cell[109930, 2556, 2529, 68, 64, "Output"] }, Open ]], Cell[112474, 2627, 1668, 23, 64, "Input"], Cell[114145, 2652, 1614, 22, 27, "Input"], Cell[115762, 2676, 1614, 22, 27, "Input"], Cell[117379, 2700, 1614, 22, 27, "Input"], Cell[CellGroupData[{ Cell[119018, 2726, 1829, 31, 27, "Input"], Cell[120850, 2759, 899, 26, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121786, 2790, 1703, 30, 27, "Input"], Cell[123492, 2822, 1773, 52, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125302, 2879, 7056, 179, 582, "Input"], Cell[132361, 3060, 1444, 25, 19, "Message"], Cell[133808, 3087, 573, 10, 19, "Message"], Cell[134384, 3099, 1099, 19, 19, "Message"], Cell[135486, 3120, 3522, 103, 114, "Output"] }, Open ]], Cell[139023, 3226, 1661, 28, 31, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[140709, 3258, 1487, 29, 27, "Input"], Cell[142199, 3289, 4290, 124, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146526, 3418, 2009, 35, 244, "Input"], Cell[148538, 3455, 413, 9, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148988, 3469, 679, 15, 27, "Input"], Cell[149670, 3486, 418, 12, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[150125, 3503, 1516, 30, 82, "Input"], Cell[151644, 3535, 327, 8, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152008, 3548, 214, 5, 27, "Input"], Cell[152225, 3555, 262, 6, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152524, 3566, 869, 19, 46, "Input"], Cell[153396, 3587, 571, 10, 19, "Message"], Cell[153970, 3599, 977, 29, 27, "Output"] }, Open ]], Cell[154962, 3631, 771, 10, 47, "Text"], Cell[CellGroupData[{ Cell[155758, 3645, 539, 13, 27, "Input"], Cell[156300, 3660, 1264, 20, 19, "Message"], Cell[157567, 3682, 1219, 35, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158823, 3722, 779, 23, 27, "Input"], Cell[159605, 3747, 805, 24, 27, "Output"] }, Open ]], Cell[160425, 3774, 749, 11, 66, "Text", Evaluatable->True], Cell[161177, 3787, 513, 15, 27, "Output"], Cell[161693, 3804, 645, 10, 28, "Text", Evaluatable->True], Cell[162341, 3816, 115, 2, 27, "Output"], Cell[162459, 3820, 1314, 20, 66, "Text", Evaluatable->True], Cell[163776, 3842, 696, 15, 29, "Text"], Cell[CellGroupData[{ Cell[164497, 3861, 1349, 38, 100, "Input"], Cell[165849, 3901, 1071, 18, 19, "Message"], Cell[166923, 3921, 573, 10, 19, "Message"], Cell[167499, 3933, 895, 15, 19, "Message"], Cell[168397, 3950, 1381, 39, 46, "Output"] }, Open ]], Cell[169793, 3992, 524, 12, 29, "Text"], Cell[CellGroupData[{ Cell[170342, 4008, 2128, 63, 190, "Input"], Cell[172473, 4073, 1446, 25, 19, "Message"], Cell[173922, 4100, 571, 10, 19, "Message"], Cell[174496, 4112, 1101, 19, 19, "Message"], Cell[175600, 4133, 3595, 105, 114, "Output"] }, Open ]], Cell[179210, 4241, 576, 11, 29, "Text"], Cell[CellGroupData[{ Cell[179811, 4256, 577, 16, 27, "Input"], Cell[180391, 4274, 4660, 134, 132, "Output"] }, Open ]], Cell[185066, 4411, 1219, 16, 66, "Text"], Cell[CellGroupData[{ Cell[186310, 4431, 1164, 30, 50, "Input"], Cell[187477, 4463, 573, 10, 19, "Message"], Cell[188053, 4475, 791, 14, 19, "Message"], Cell[188847, 4491, 570, 10, 19, "Message"], Cell[189420, 4503, 892, 15, 19, "Message"], Cell[190315, 4520, 957, 16, 19, "Message"], Cell[191275, 4538, 653, 11, 19, "Message"], Cell[191931, 4551, 3764, 109, 96, "Output"] }, Open ]], Cell[195710, 4663, 940, 13, 47, "Text"], Cell[CellGroupData[{ Cell[196675, 4680, 1862, 49, 64, "Input"], Cell[198540, 4731, 1177, 35, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199754, 4771, 381, 12, 27, "Input"], Cell[200138, 4785, 433, 12, 27, "Output"] }, Open ]], Cell[200586, 4800, 291, 4, 28, "Text"], Cell[CellGroupData[{ Cell[200902, 4808, 98, 1, 27, "Input"], Cell[201003, 4811, 3766, 109, 96, "Output"] }, Open ]], Cell[204784, 4923, 879, 12, 47, "Text"], Cell[CellGroupData[{ Cell[205688, 4939, 457, 13, 27, "Input"], Cell[206148, 4954, 4040, 112, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[210225, 5071, 2519, 62, 76, "Input"], Cell[212747, 5135, 3533, 97, 115, "Output"] }, Open ]], Cell[216295, 5235, 412, 7, 29, "Text"], Cell[CellGroupData[{ Cell[216732, 5246, 1155, 29, 27, "Input"], Cell[217890, 5277, 2210, 63, 97, "Output"] }, Open ]], Cell[220115, 5343, 361, 6, 29, "Text"], Cell[CellGroupData[{ Cell[220501, 5353, 409, 9, 27, "Input"], Cell[220913, 5364, 275, 7, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[221225, 5376, 458, 9, 27, "Input"], Cell[221686, 5387, 255, 6, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[221978, 5398, 236, 6, 27, "Input"], Cell[222217, 5406, 276, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222530, 5418, 328, 9, 27, "Input"], Cell[222861, 5429, 278, 7, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223176, 5441, 286, 7, 27, "Input"], Cell[223465, 5450, 282, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223784, 5462, 232, 6, 27, "Input"], Cell[224019, 5470, 369, 10, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224425, 5485, 281, 7, 27, "Input"], Cell[224709, 5494, 331, 8, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[225077, 5507, 1201, 30, 27, "Input"], Cell[226281, 5539, 1589, 46, 55, "Output"] }, Open ]], Cell[227885, 5588, 331, 5, 28, "Text"], Cell[CellGroupData[{ Cell[228241, 5597, 593, 14, 41, "Input"], Cell[228837, 5613, 375, 10, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[229249, 5628, 457, 12, 43, "Input"], Cell[229709, 5642, 367, 10, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[230113, 5657, 531, 14, 43, "Input"], Cell[230647, 5673, 399, 11, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[231083, 5689, 521, 13, 41, "Input"], Cell[231607, 5704, 379, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[232023, 5719, 525, 14, 43, "Input"], Cell[232551, 5735, 398, 11, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[232986, 5751, 395, 11, 43, "Input"], Cell[233384, 5764, 490, 14, 54, "Output"] }, Open ]], Cell[233889, 5781, 307, 4, 31, "Text"], Cell[CellGroupData[{ Cell[234221, 5789, 1049, 28, 27, "Input"], Cell[235273, 5819, 2209, 63, 97, "Output"] }, Open ]] } ] *) (* End of internal cache information *)